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INTRODUCTION 


This instant outlines the COBOL Version 4.5 language as designed 
to run under NOS/BE 1 and NOS 1 operating systems for the 
CONTROL DATA® CYBER 170, CYBER 70 Model 72, 73, 74, 
and 6000 Series Computer Systems. 

COBOL Version 4.5 is compatible with the American National 
Standard COBOL, X3.23-1968, and contains extensions to the 
standard. Extensions are indicated in this instant by shading. 


Special Features 

Mass storage input and output including indexed sequential, actual 
key, and direct access file processing 

SORT verb sorts files within COBOL program 

Automatic table search using index names and the SEARCH and 
SET statements 

Report Writer produces printed reports automatically, or user may 
produce report page with LINAGE clause and WRITE statement 

Full arithmetic facility including: 

18-digit operands 

DIVIDE with REMAINDER 

COMPUTE with exponentiation 

CORRESPONDING option with ADD and SUBTRACT 


Segmentation and overlay of object program 

Inter-program communication with separately compiled COBOL 
programs as well as with FORTRAN or COMPASS programs 

Access to COBOL source library 

Memory dumps with restart at specified checkpoints 

Remote interactive capability for remote terminal input/output 






Multiple-index processing capability 
Ability to trace paragraphs 
EBCDIC file processing 

PROGRAM EFFICIENCY HINTS 

To reduce keypunching: 

Use abbreviations where permitted. 

Use PIC clause rather than SIZE, CLASS, USAGE clauses. 

To increase compilation efficiency: 

Restrict data and paragraph names to 9 characters or less. 

Eliminate unnecessary paragraph names. 

Reduce forward references. 

To increase execution efficiency: 

Use same size sending and receiving fields. 

Make table and item sizes a multiple of 10 characters. 

Reduce subscripting. 

Subscript with literals instead of variables. 

Use COMPUTATIONAL-1 items or index-names as subscripts. 
Use COMPUTATIONAL-1 items as arithmetic variables. 

Restrict arithmetic items to 9 digits or less. 

Use SYNCHRONIZED RIGHT clause for data frequently refer¬ 
enced. 

Use SAME RECORD AREA to save moves; SAME AREA to save 
space...' ; 
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NOTATION 


[ ] Enclosed elements are optional. 

| Only one element must be selected 
. Repeat preceding bracketed material as needed. 

{ } ... Entire phrase may be repeated. 

COBOL words have preassigned meanings and appear in capitals. 
# COBOL words not underlined may be omitted. 

Terms in small letters are words supplied by the programmer. 
Punctuation and special characters are required where shown. 




Word 


COBOL LANGUAGE ELEMENTS 

Sequence of up to 30 alphanumeric characters including 
embedded hyphens. 


Identifier Word that may be qualified or subscripted. 

Literal String of characters whose value is exactly represented 

by the characters; numeric literal may be 0-9, +, and 
decimal point; non-numeric literal must be enclosed in 
quotes, may be any alphanumeric character except quotes. 


Statement Procedure Division verb with associated options. 


Sentence One or more statements terminated by period. 

Paragraph Procedure Division sentences. Identification and Environ¬ 
ment Division entries introduced by paragraph name, 
terminated by period. 


Paragraph Word terminated by period used to introduce paragraph; 
Name user defined in Procedure Division, pre-defined in Identi¬ 

fication and Environment Divisions. 


Section Paragraphs may be included in sections introduced by 

section name. 


Section 

Name 


Entry 


Word followed by SECTION and terminated by period; 
user defined in Procedure Division, pre-defined in Identi¬ 
fication, Environment, and Data Divisions. 

Unit of description in Data Division; must be terminated 
by period. 
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IDENTIFICATION DIVISION 


< — > DIVISION 

l IDENTIFICATION ) - 

PROGRAM-1 D. program-name. 

[ AUTHOR, [comment-entry.] ] 

[ INSTALLATION, [comment-entry.] ] 

[ DATE-WRITTEN, [comment-entry.] ] 

[ DAT E-COM PI LED, [current-date supplied by compiler.] ] 

[ SECURITY, [comment-entry.] ] 

[ REMARKS, [comment-entry.] ] 

ENVIRONMENT DIVISION 

ENVIRONMENT DIVISION- 
CONFIGURATION SECTION. 1 ' 


format 1: 


SOURCE-COMPUTER. COPY library-name 


REPLACING 


literal-1 
word-1 
identifier—1 


( literal-2 
BY < word-2 
{ identifier-2 


” ( literal—3 V 

f literal-4 ) 


V word-3 , / 

BY < word-4 > 


_ ( identifier-3 ) 

t identifier-4 



format 2: 

SOURCE-COMPUTER, computer-name. 


format 1: 

OBJECT-COMPUTER. COPY library-name 



C literal-1 ) 

( literal-2 t 

REPLACING 

Y word-1 > 

BY < word-2 > 


( identifier-1 ) 

( identifier—2 2 


~ r literal-3 j 

( literal-4 ) 


< word-3 > 

BY < word-4 ^ 


_ v identifier-3 j 

( identifier-4 



f CONFIGURATION SECTION, SOURCE-COMPUTER, and 
OBJECT-COMPUTER are optional. 
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format 2: 


OBJECT-COMPUTER, computer-name 

[ SEGMENT-LIMIT IS priority-number] 

( WORDS 

MEMORY SIZE integer < CHARACTERS 

{ MODULES 


format 1: 


SPECIAL-NAMES. COPY library-name 


( literal-1 
REPLACING < word-1 

{ identifier-1 


( literal-2 
BY < word-2 
\ identifier-2 


( literal—3 
< word-3 
( identifier-3 


( literal-4 
BY < word-4 
( identifier-4 


format 2: 


SPECIAL-NAMES. 


SWITCH integer-1 

! |S mnemonic-name-1 

[ ON STATUS ]S. condition-name-1 
[ OFF STATUS [S condition-name-2] ] 
[S mnemonic-name-2 

[ OFF STATUS IS condition-name-3 
[ ON STATUS [S condition-name-4] ] 
ON STATUS [S condition-name-5 
[ OFF STATUS [S condition-name-6] 
OFF STATUS IS.condition-name-7 
[ ON STATUS iS condition-name-8] 

[ implementor-name-1 IS mnemonic-name-1 
implementor-name-2 IS mnemonic-name-2 . . .] 

[ non-numeric-literal-1 [S mnemonic-name-1 
non-numeric-literal-2 IS mnemonic-name-2 . . .] 

[ CURRENCY SIGN IS literal] 


[ DECIMAL-POINT IS COMMA] 




[ CONSOLE IS mnemonic-name] 
[ TERMINAL jS mnemonic-name] 
[ SUB-SCHEMA IS mnemonic-name]. 



INPUT-OUTPUT SECTION. 


format 1: 


FILE-CONTROL. COPY library-name 


REPLACING 


literal-1 
word-1 
identifier-1 

literal—3 
word-3 
L l identifier-3 


C literal-2 
BY < word-2 
\ identifier-2 

literal-4 
BY < word-4 

identifier-4 


format 2: 


FILE-CONTROL. 

| SELECT [ OPTIONAL ! file-name-1 [RENAMING file-name-2] 
ASSIGN TO [integer] implementor-name-1 [implementor-name-2] 
... [OR implementor-name-3 [implementor-name-4] ...] 

[ ERROR FILE IS file-name] 


for multiple {fig} 


RES E RVE {g } ALTERNATE 


/AREA \ 
l AREAS j J 


FILE-LIMIT IS 
FILE-LIMITS ARE 


THRU 
THROUGH 

data-name-3 
literal-3 


data-name-1 
literal-1 

data-name-2 
literal-2 

( THRU 
\ THROUGH 


data-name-4 / 
literal-4 j 


( data-name-5 \ 
FILE LIMIT IS 11itered S } 
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ORGANIZATION IS 


ACCESS MODE IS 


SEQUENTIAL 

STANDARD 

DIRECT 

INDEXED SEQUENTIAL 

RELATIVE 

ACTUAL KEY 


j SEQUENTIAL \ 


\ RANDOM 


JJ 


[ PROCESSING MODE IS SEQUENTIAL ! 


( ACTUAL KEY IS data-name-1 V 

' SYMBOLIC KEY IS data-name-2 [WITH DUPLICATES ] . 
jj RECORD KEY IS data name 3 [WITH DUPLICATES! j 


ALTERNATE RECORD KEY IS dataname 3 
[ WITH DUPLICATES IlNPEXED ll 


NUMBER OF BLOCKS IS 


( data-name 
linteger 


. f INDEX-LEVEL IS \ . 

I I INDEX LEVELS ARE I mte 9 er 


; INDEX-BLOCK CONTAI NS integer CHARACTERS] 

( RECORDS 


j 


RECORD-BLOCK CONTAINS integer , CHARACTE R S 

flNDEX-PADDING IS integer PERCENT) 
IDATA-PADDING IS integer PERCENT] . I ... 
format 1: 

l-O-CONTROL. COPY library-name 


REPLACING 


literal-1 
word-1 
identifier-1 

literal-3 
word-3 
L L identifier-3 


literal-2 
BY < word-2 

identifier-2 

literal-4 
BY < word-4 

identifier-4 
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format 2: 


1-0 CONTROL. 


RERUN 


ON 


f file-name-1 \ 

\ impiementor-name / 


[END OF] 


j REEL \ 
x \ UNIT j 

EVERY < { integer-1 RECORDS 
integer-2 CLOCK-UNITS 
condition-name 


OF file-name-2 


|SAME AREA FOR file-name-1 |file-name-2 J- ... | 

|sAME|gQ R -j- |aREA FOR file-name-1 |file-name-2[... j 





[MULTIPLE FILE TAPE CONTAINS file -name-1 
[ POSITION integer-1] [ file-name-2 
[ POSITION integer-2] ] ... 1 ... . 


« 
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PICTURE DESCRIPTION CODES 


Data Characters 

A Alphabetic character 
X Alphanumeric character 
9 Numeric character 

Operation Symbols 
S Signed 

V Assumed decimal point location 

P Assumed decimal point scaling position 

Replacement Characters 

Z Leading zeros replaced by blanks 
* Leading zeros replaced by * (check protection symbol) 

Insertion Characters 

$ Dollar sign; floating when more than one (dollar sign may be 
replaced by currency sign defined in SPECIAL-NAMES) 

, Comma 

/ Slash (instead of comma) 

Actual decimal point 
B Blank 
0 Zero 

Minus sign when item is negative, blank when positive; floating 
when more than one 

+ Plus sign when item is positive, minus when negative; floating 
when more than one 

CR Credit symbol when item is negative, blank when positive 
DB Debit symbol when item is negative, blank when positive 





File 

Section 

Common and 
Working 
Storage Sections 

Constant 

Section 

01 

H 

e 

1 

e 

m 

77 

01 

| 

e 

1 

e 

m 

77 

01 

| 

e 

1 

e 

m 

REDEFINES 

1 











SIZE 



R 

R 



R 

R 

B 


R 

USAGE 












CLASS 




R 




R 




OCCURS 

1 



1 

1 



1 

1 



POINT LOCATION 

B 

n 



B 

n 



B 

B 


SIGNED 

n 

n 



B 

B 



B 

B 


JUSTIFIED 

■ 

D 



B 

B 



B 

fl 


SYNCHRONIZED 

B 

n 



B 

B 



B 

1 


PICTURE 

B 

n 



B 

B 



B 

B 

B 

Editing Clauses 

B 

n 



B 

B 


B 

B 

B 

fl 

COPY 









|| 



VALUE 

K 

K 

C 





V 

B 


V 

FILLER 

1 



1 

1 



1 

1 




c 

I 

R 

blank 

V 

J 

K 


Legal only in defining values for condition names 
11 legal 

Required if PICTURE is not used 

Optional 

Required 

Legal only on elementary 01 items 
Documentary only 

01 items may be elementary or group, depending 
on the program 


i 

i 

« 
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DATA DIVISION 


DATA DIVISION. 

[ FILE SECTION. ! 
f COMMON-STORAGE SECTION.! 
[ WORKING-STORAGE SECTION. ] 
[ CONSTANT SECTION. ! 
[ LINKAGE SECTION. ] 

[ REPORT SECTION. ] 


File Description Entry (File Section Only) 

A Sort File Description (SD) entry may contain only DATA RECORD, 
RECORD CONTAINS,and FILE CONTAINS clauses; any or all may be 
omitted from an SD entry. 


format 1: 


J l fiie-name COPY library-name 


1 ED J 


( literal—1 
REPLACING < word-1 

1 identlfier-1 


literal—3 
word-3 
LI identifier-3 


literal-2 
BY { word-2 

identifier-2 

literal-4 
BY { word-4 

identifier-4 


format 2: 


SD 

FD 


file-name 


BLOCK CONTAINS [integer-1 TO] integer-2 


RECORDS 
CHARACTERS j j 


D - A -^ 1 RECO^Ds LrE } data ~ name ~ 1 [data-name-2] 


REPORT IS 
L REPORTS ARE 


report-name-1 [report-name-2] ... 


[ FILE CONTAINS ABOUT integer RECORDS ] 
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LABEL 


RECORDS ARE 
RECORD IS 


STANDARD 

OMITTED 

data-name-1 [data-name-2] ... 


If label records are STANDARD: 


VALUE OF 


[{ 


ID 


jg i literal-1 
( data- 


1DENTIFICATIQN j " (data-name-1 
literal-2 


DATE-WRITTEN IS , 

L ~ ~ ( data-name-2 


EDITION-NUMBER IS 


literal-3 
data-name-3 


REEL-NUMBER IS f l 1 ,teral “ 4 
L ( data-name-4 


RETENTION-CYCLE IS i ilteral ~ 5 

( data-name-5 


}] 


If label records are a data-name: 


VALUE OF data-name-3 IS ( '' teral 1 

( data-na 


name-4 


data-name-5 IS 


literal-2 


[ 


data-name-6 

VALUE OF ENDING-TAPE-LABEL-IDENTIFIER 
literal-3 


IS 


data-na fine-7 


LINAGE IS ( !" tege ^l LINES 1 
(identifier)-J 

RECORD CONTAINS [integer-1 TO] integer-2 CHARACTERS 


DEPENDING ON { BfCORD MARK 
. ( data-name-1 


RECORDING MODE IS 


BINARY V 
DECIMAL > 
[ EBCDIC! )_ 


HIGH ) 

LOW > DENSITY 
HYPER) 


C SEQUENCE D ON data-name-1 [data-name-2] ... ] . 
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Record Description Entry (File, Common-Storage, Working-Storage, 
Constant and Linkage Sections) 


format 1: 


| 01 i 

l 02-49 / 


data-name 


COPY library-name [FROM LIBRARY ! 


REPLACING 


/ word-1 y 
< identifier-1 > 
a literal—1 ) 


BY 


word-2 

identifier-2 

literal-2 


" f word-3 \ 

( word-4 ) ~ 


< identifier-3 > 

BY< identifier-4 > 


_ ( literal-3 j 

(literal-4 )_ 



format 2: 

level-number data-name-1 [ REDEFINES identifier! 
COPY data-name-2 FROM SOURCE. 


format 3: 


level-number 


j data-name-1 
1 FILLER 


[ REDEFINES identifier! 


BWZ 

BLANK WHEN ZERO 


CHECK PROTECT 
FLOAT DOLLAR SIGN 
FLOAT CURRENCY SIGN 
ZERO SUPPRESS 

ALPHABETIC 

I CLASS IS I : ' !I Ji ’ v1£R!C 
-- v ALPHANUMERIC 

AIM 


[ LEAVING integer PLACES! 


- j JUST 

1 JUSTIFIED 


RIGHT 
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OCCURS integer-1 [TO integer-2] TIMES 

[ DEPENDING ON data-name-1] 

r ( ASCENDING ) _ . 

L DESCENDING / KEY IS data-name-2 [data- 

[ INDEXED BY index-name-1 [index-name-2] ...] 


~ j PIC 

\ PICTURE 


IS character-string 


POINT LOCATION IS j j integer PLACES 

BANGE IS literal-1 { } literal-2 _ 

/ SIGNED V 1 

\. SIGN IS data-name ) J 


SIZE IS integer 


CHARACTERS 

DIGITS 


/ SYNC \ f LEFT \ 

\ SYNCHRONIZED / 1 RIGHT / _ 

COMP 

COMPUTATIONAL 
CQMP-1 

COMPUTATIONAL-1 
CQMP-2 

COMPUTATION A L-2 
DISPLAY 
INDEX 

[ VALUE IS literal]. 


[ USAGE IS] 


format 4: 


66 data-name RENAMES identifier-1 


THRU 

THROUGH 


format 5: 


88 condition-name 


J VALUE IS 
1 VALUES ARE 


literal-1 


' / THRU \ 
_ 1 THROUGH j 


literal-2 


literal-3 


THRU 

THROUGH 


name-3] ... 




identifier-2 


literal-4 
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Report Description Entry (Report Section Only) 


format 1: 


RD report-name [WITH CODE mnemonic-name] 


COPY library-name 


REPLACING 


literal—1 

word-1 

identifier-1 


BY 


X 

V ( 


literal—2 \ 

~ { literal-3 

f f literal-4 ) ~ 

word-2 > 

s word-3 

1 BY \ word-4 > 

identifier-2 ) 

_ V identifier-2 

/ v identifier-4 / - 


format 2: 

RD report-name [WITH CODE mnemonic-name] 


( CONTROL IS ^ 
t CONTROLS AREJ 


( identifier-1 [identifier-2] ... 

< FINAL 

v FINAL identifier-1 [identifier-2] 


r PAGE 


LIMIT IS 
LIMITS ARE 


integer-1 


/ LINE ) 
\ LINES J 


[ HEADING integer-2] [ FIRST DETAIL integer-3] 
[ LAST DETAIL inteqer-4 [ FOOTING integer-5] 


Report Group Description Entry (Report Section Only) 


format 1: 


01 [data-name] COPY library-name [FROM LIBRARY ] 


REPLACING 


literal-1 
word-1 
identifier-1 


BY 


literal-2 

word-2 

identifier-2 


/' literal—3 \ 

< word-3 > BY 

l identifier-3 ) 


literal-4 
word-4 
identifier-4 ) J 
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format 2: 


01 data-name-1 [ REDEFINES identifier] 
COPY data-name-2 FROM SOURCE. 


format 3: 


01 [data-name] 


{CLASS IS] 


ALPHABETIC 

ALPHANUMERIC 

AN 


( integer-1 

LINE NUMBER IS < PLUS integer-2 
( NEXT PAGE 


NEXT GROUP IS 


integer-1 
PLUS integer-2 


NEXT PAGE 


SIZE IS integer 


CHARACTERS! 
DIGITS j J 


TYPE IS 


REPORT HEADING 
RH 

PAGE HEADING 
PH 

OVERFLOW HEADING 
OH 

( CONTROL HEADING | 
1 CH I 

DETAIL 
DE 

/ CONTROL FOOTING { 
1 CF ) 

OVERFLOW FOOTING 
OV 

PAGE FOOTING 
PE 

REPORT FOOTING 
RF 


( identifier-1 
t FINAL 


( identifier-2 
l FINAL 


[ USAGE IS] DISPLAY 






Report Element Description (Report Section Only) 


TYPE clause allowed if level 01 
NEXT GROUP clause allowed if level 01 

level-number [data-name] 
f | BLANK WHEN ZERO | 1 


CHECK PROTECT \ 

FLOAT DOLLAR SIGN f 

FLOAT CURRENCY SIGN f [ LEAVING integer PLACES] 

ZERO SUPPRESS ) 

( ALPHABETIC 

[ CLASS IS] ) N UMER IC 

I ALPHANUMERIC 
( AN 

[ COLUMN NUMBER IS integer] 

[ GROUP INDICATE] 





/ JUSTIFIED ) 
\ JUST f 


RIGHT 


{ integer-1 \ - 

LINE NUMBER IS < PLLJS integer-2 ; 

t NEXT PAGE ) _ 


' f PJC \ 

\ PICTURE / IS character-string 




POINT LOCATION IS f ~~T"7 \ integer PLACES 

V R I GHT ' 


RESET ON 


identifier '( 
FINAL ) _ 
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SIGNED 

SIGN IS data-name 


SIZE IS integer 


CHARACTERS 

DIGITS 



SOURCE IS 


[SELECTED ] identifier \ 
LINE-COUNTER ( 
PAGE -COUNTER ( 


TODAYS-DATE 
SUM identifier-1 [identifier-2] . . 
VALUE IS literal 

[[ USAGE IS] DISPLAY ]. 


[ UPON data-name] 
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USAGE SPECIFICATIONS 


Element 

Upper Limit 

data-name 

30 characters 

literal 

255 characters/digits 

PERFORM nesting 

no limit 

level numbers 

01-49,66,77,88, FD, RD, SD 

OCCURS...DEPENDING ON 

1 per record description 

library copies 

5 levels of nesting 

ACCEPT items 

80 characters; 

40 characters from console 

PICTURE clause 

30 symbols 

arithmetic operand 

18 digits 

GO TO statement 

no limit 

ALTER statement 

100 procedure names 

DISPLAY items 

no limit 

ENTER parameters 

no limit 

Total files, I/O devices, 
and reports 

53 

Total procedure names 

depends on field length 

Total external references 

depends on field length 

index names 

9 

report group 

127 detail lines 
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VALID MOVE OPERATIONS 


Rec. 

\Field 

Sources 
Field \ 

Elem. 

Binary 

Elem. 

Alpha 

Elem. 

BCD 

Num. 

Elem. 

AN 

Elem. 

Edit 

Num. 

Elem. 

Edit 

AN 

Group 

AN 

Elem. 

Binary 

Num. 

Bin. 

X 

Conv. 

Num. 

Conv.t 

AN 

Conv. 

Edit 

Conv.t 

AN- 

Edit 

TD 

AN 

Elem. 

Alpha 

X 

AN 

TD 

AN 

AN 

X 

AN- 

Edit 

AN 

Elem. 

BCD Num. 

Conv. 

Bin. 

TD 

AN 

Num. 

ANt 

Editt 

AN- 

Edit 

ANt 

Elem. 

AN 

X 

TD 

AN 

Num. 

AN 

Edit 

AN- 

Edit 

AN 

Elem. 

Edit Num. 

X 

TD 

AN 

X 

AN 

X 

AN- 

Edit 

AN 

Elem. 

Edit AN 

X 

TD 

AN 

X 

AN 

X 

AN- 

Edit 

AN 

Group AN 

TD 

AN 

TD 

AN 

TD 

AN 

AN 

X 

AN- 

Edit 

AN 

Group 
Binary & 
Mixed 

TD 

AN 

TD 

AN 

TD 

AN 

TD 

AN 

X 

TD 

AN- 

Moves 

TD 

AN 

Zero 

Num. 

Bin. 

X 

Num. 

AN 

Edit 

AN- 

Edit 

AN 

Literal & 
Fig. Cons. 
AN 

X 

TD 

AN 

x 

AN 

Edit 

AN- 

Edit 

AN 

Literal 

Num. 

Conv. 

Bin. 

X 

Num. 

ANt 

Edit 

AN- 

Edit 

AN 


t Valid only when source is integer; others TD. 


Any move to a binary or mixed group is treated as an alphanumeric 
move; a precautionary diagnostic is issued. 

A move to a figurative constant or literal is illegal. 


X 

AN 

AN-Edit 

Conv. 

Edit 

Num. 

Num. Bin. 
TD 

AN-MOVES 


Illegal 

Alphanumeric 
Alphanumeric edited 
Conversion prior to move 
Numeric edited 
Numeric 
Numeric binary 
Trivial diagnostic issued 
Alphanumeric moves 
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PROCEDURE DIVISION 


PROCEDURE DIVISION [USING parameter-list] 


DECLARATIVES. 

{ section-name SECTION, declarative-sentence. 
{ paragraph name. { sentence.} ...} ...} ... 

END DECLARATIVES. 

{ section-name SECTION [priority-number] . 

{ paragraph-name. { sentence. } ... } ... } ... 


ACCEPT identifier 


FROM 


TIME .■: 

DATE 
DAY . ; 

mnemonic-name / _I 


ADD 


{identifier-1 


identifier-2 

literal-2 


l literal-1 
identifier-3 [ROUNDED] 

[ON SIZE ERROR imperative-statement] 


add [ : dent : f r- 1 } 

\ literal-1 ) 


( identifier-2 \ 
1 literal-2 j 


... TO 


identifier-3 [ ROUNDED ] [identifier-4 [ ROUNDED ] 1 
[ON SIZE ERROR imperative-statement] 


ADD 


identifier-1 


identifier-2 \ 
literal-2 j 


( identifier-3 
1 literal-3 


literal-1 

GIVING identifier-4 [ROUNDED] fidentifier-5 [ ROUNDED ] 
[ON SIZE ERROR imperative-statement] 


ADD 


CORR 


l 


identifier-1 


CORRESPONDING j 
TO identifier-2 [ ROUNDED ]'[identifier—3 [ ROUNDED ] 1 ... 
[ON SIZE ERROR imperative-statement] 
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ALTER procedure-name-1 TO [ PROCEED TO] procedure-name-2 
[procedure-name-3 TO [ PROCEED TO ] procedure-name-4] ... 

CALL [language-name]routine-name 


CLOSE file-name-1 

r j UNIT 

A REEL j. 


r W|T|| ( NO REWIND ) I 
. W ' TH \ LOCK j 


file-name-2 

r i unit y 

A REEL/_ 


r WITH 1 NO REWINDU] 
1 LOCK ) 


COMPUTE identifier-1 [ ROUNDED ] [identifier-2 [ ROUNDED] ] 


FROM V ( literal 

= V arithmetic-expression 


EQUALS 


identifier-3 


[ON SIZE ERROR imperative-statement] 


fTL-,„r- [ library-name [FROM LIBRARY] 
IN C L U D E ) 


REPLACING 


literal-1 
word-1 
identifier-1 

literal-3 

word-3 

identifier-3 


BY 


BY 


literal-2 

word-2 

identifier-2 

literal-4 

word-4 

identifier-4 


DELETE (last! RECORD FROM file-name 
[ INVALID KEY imperative-statement] 


DISPLAY 


( identifier-1 
\ literal-1 


identifier-2 
L l literal-2 


[ UPON mnemonic-name^ 


DIVIDE {|f t eraJ fier j INT0 identifier-2 [ ROUNDED ] 

[identifier-3 [ ROUNDED ] ] ... 

[ON SIZE ERROR imperative-statement] 
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DIVIDE 


identifier-1 

literal-1 


BY 

INTO 


identifier-2 

literal-2 


DIVIDE 


GIVING identifier-3 [ ROUNDED ] [identifier-4 [ ROUNDED ]] 
[ON SIZE ERROR imperative-statement] 

identifier-1 ] (BY M identifier-2 


literal-1 


INTO 


literal-2 


GIVING identifier-3 [ ROUNDED ] 

REMAINDER identifier-4 

[ON SIZE ERROR imperative-statement] 

ENTER [language-name] routine-name [ USING parameter-list]. 


ENTER COBOL. 

ENTER LINKAGE- 

ENTRY routine-name [ USING parameter-list]. 


EXAMINE identifier 


( ALL 

TALLYING < LEADING 

( UNTIL FIRST 


literal-1 

[ REPLACING BY literal-2] 


( ALL 

REPLACING < LEADING > literal-3 BY literal-4 
( [ UNTIL ] FIRST 


EXIT- 


EXIT PROGRAM. 
RETURN. 


GENERATE identifier 


GO TO [procedure-name] 

GO TO procedure-name-1 [procedure-name-2]... 
DEPENDING ON identifier 
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IF conditional-expression [IHEN3 { ^EXT SENTENCE } 

rfm=wi / OTHERWISE ) / statement-2 \ 

- 1 ELSE / 1 NEXT SENTENCE ) 

Conditional expressions include: 


(identifier-1} 
^literal—1 > 

(formula-1 ) 


IS [NOT] 


GREATER THAN 
GR 

> 

LESS THAN 
LS 

< 

GREATER-EQUAL TO' 
GQ 

LESS-EQUAL TO 
LQ 

EQUAL TO 
EQUAL TO 
EQ 


IS UNEQUAL TO 
EQUALS 
EXCEEDS 
IS NQ 
IS NGR 
IS NLS 


(identifier-2) 
<1 iteral—2 > 
(formula-2 ) 


© 

« 


.. ... ( POSITIVE 

(identifier) , s [ N0 T] < NEGATIVE 
(formula j (ZERO 


identifier IS [ NOT ] 


NUMERIC 1 
ALPHABETIC I 


[ NOT ! 


condition-name 

switch-status-name 


j report-name-1 [report-name-2]... 
I ALL 

( CORR ) 

( CORRESPONDING / 
literal-1 
identifier-1 


identifier-1 


TO 


MOVE 


« 


identifier-2 [identifier-3] ... 
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MULTIPLY 


identifier-1 

literal 


BY identifier-2 [ ROUNDED] 


[identifier-3 [ ROUNDED ]] ... 

[ON SIZE ERROR imperative-statement] 


MULTIPLY 


identifier-1 

literal-1 


BY 


identifier-2 ) 
literal-2 j 


GIVING identifier-3 [ ROUNDED ] 
[identifier-4 [ ROUNDED ] 1 ... 

[ON SIZE ERROR imperative-statement] 


NOTE character-string. 


OPEN 


EXTEND file-name-1 [file-name-2] ... 


INPUT file-name-1 


REVERSED 
WITH NO REWIND 



file-name-2 

[ ( REVERSED ) 1 



Li WITH NO REWIND (_ 



OUTPUT file-name-1 [WITH NO REWIND 

[file-name-2 [WITH NO REWIND ]] ... 


INPUT-OUTPUT \ 

LQ l 


file-name-1 [file-name-2] ... 


PERFORM procedure-name-1 


THRU 

THROUGH 


procedure-name 


( identifier 1 T[MES j 
l integer ) / 

UNTI L condition ) 
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PERFORM procedure-name-1 


THRU \ 
THROUGH j 


procedure-name-2] 


VARYING 


index-name-1 ^ ppQM 
identifier-1 j 


literal-1 

index-name-2 

identifier-2 


BY 


f literal-2 \ 
( identifier-3 / 


UNTIL condition-1 


AFTER 


index-name-3 ^ 
identifier-4 j 


FROM 


literal-3 f 
index-name-4 / BY 
identifier-5 ) 


f literal-4 \ 
1 identifier-6 j 


UNTIL condition-2 


AFTER I index-narne-5'I 
l identifier-/ j 


literal-5 
index-name-6 
identifier-8 


BY 


/ literal-6 ) 

1 identifier-9 / 


UNTIL condition-3 


READ file-name[NEXT] RECORD [ INTO identifier! 


! AT END imperative-statement 
" MAJOR KEY IS data-name" 
KEY IS data-name 


INVALID KEY 


imperative-statement 


RELEASE record-name [ FROM identifier] 

RETURN file-name RECORD [ INTO identifier] AT END 
imperative-statement 

REWRITE [ LAST] record-name [ FROM Identifier] 
[ INVALID KEY imperative-statement] 

index-name 


SEARCH identifier-1 


VARYING 


identifier-2 


[AT END imperative-statement-1 


t/wur-M .- + - i f imperative-statement-2 \ 
WHEN condition-1 NEXT SENTENCE / 


WHEN condition-2 


imperative-statement-3 j 


NEXT SENTENCE 


/ 
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SEARCH ALL identifier [AT END imperative-statement-1 ] 


WHEN condition 


imperative-statement-2 
NEXT SENTENCE 


SEEK file-name RECORD [WITH KEY CONVERSION] 

g f index-name-1 [index-name-2] ... ) 

\ identifier-1 [identifier-2] ... / 


( index-name-3 
TO < identifier-3 
literal 


t 


SET index-name-1 [index-name-2] ... 

( UP BY ) ( identifier \ 

1 DOWN BY J l literal f 

SKIP ] \ RECORDS ON file-name 

{ data-name : ; 


SORT file-name-1 ON 


( DESCENDING 
\ ASCENDING 


KEY data-name-1 [data-name-2] .. 


/ DESCENDING } ,_ w , 

0N i ASCENDING | KcY data-name-3[data-name-4] 


INPUT PROCEDURE IS section-name-1 
THRU 


\\ THROUGH 
USING file-name-2 


section-name-2 


OUTPUT PROCEDURE IS section-name-3 


/ THRU ] 

\ TH ROUGH / SeCt ' 0n “^ 


GIVING file-name-3 
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START file-name 


KEY< 


IS EQUAL TO 

IS - r j ;. 

IS GREATER THAN 
IS >_ 


>data-name 


IS NOT LESS THAN 
JS NOT < 


INVALID KEY imperative-statement 


STOP 


( literal \ 
\ RUN j 


SUBTRACT 


identifier-1) 
literal-1 j 


identifier-21 
literal-2 j_ 


FROM identifier-3 

[ ROUNDED ] [ identifier-4 [ ROUND ED I 1 ... 
[ON SIZE ERROR imperative-statement] 


SUBTRACT 


identifier-1) 
literal-1 I 


identifier-2) 
literal-2 j 


FROM 


identifier-3 

literal-3 


GIVING identifier-4 [ ROUNDED ] 
[identifier—5 [ ROUNDED ] 1 ... 


[ON SIZE ERROR imperative-statement] 


SUBTRACT i CQR - \ identifier-1 FROM 

- 1 - 1 ( CORRESPONDING ) " 

identifier-2 I ROUNDED ] [identifier-3 [ ROUNDED ] j 

[ON SIZE ERROR imperative-statement] 

TERMINATE / report- n am e 1 [report-name-2] ... fc 


USE AFTER STANDARD ERROR PROCEDURE ON 


file-name-1 [file-name-2] ... 
INPUT 
OUTPUT 
INPUT-OUTPUT 
1-0 

EXTEND 
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USE 


( BEFORE ) 
1 AFTER j 


STANDARD 


' ( BEGINNING ) 
1 ENDING j 


REEL ) 
FILE > 
UNIT ) 


LABEL 


PROCEDURE T 
PROCEDURES j 


/ file-name-1 [file-name-2] 
\ INPUT 
ON < OUTPUT 

j INPUT-OUTPUT 
V 1-0 


USE BEFORE REPORTING identifier-1 [identifier-2] 


( ALL 


USE FOR HASHING ON irrl 

( file-name-1 [file-name-2] 


USE FOR DUPLICATE KEY ON 


( ALL 

1 file-name-1 [file-name-2] 


USE FOR KEY CONVERSION ON 


(ALL 

\ file-name-1 [file-name- 


WRITE record-name [ FROM identifier-1] 


BEFORE ) 
AFTER 


( identifier-2 LI NES 
ADVANCING < integer LINES 




END-OF-PAGE ) 

EOP 


\ mnemonic-name 


imperative-statement 


WRITE [ NEXT ] record-name [ FROM identifier] 
[ INVALID KEY imperative-statement] 


0 
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COBOL CONTROL STATEMENT 


Parameters are used to select compilation options. All are optional and 
may be specified in any order. Each is separated from the other by a 
comma. The list may be enclosed in parentheses (as shown) or it may be 
separated from the word COBOL by a comma and terminated by a 
period. 


COBOL. 

COBOL (parameter-list) 


[comments] 


A (Blank Conversion) 

A 

treats leading blanks as zeros 

B (Binary Output) 

absent j 

B 

B = LGO1 

relocatable binary file on file 
LGO 


B = fn 

binary output on file fn 


B = 0 

suppress binary output 

BUF (Buffer Size) 

BUF 

selects buffer size by method 
of version 3.0 COBOL 

C (Copy Default) 

C 

uses version 3.0 COPY mode; 
to copy from library, FROM 
LIBRARY must be specified 

D (Execution Abort) 

D 

prevents execution of program 
if E diagnostic occurs 

DB (Subscript Limit 
Check) 

DB 

checks if subscript item with¬ 
in range of OCCURS for that 
item 

DB1 (Paragraph Trace) 

DB1 

allows a program's flow to be 
traced by paragraphs. Used 
in conjunction with trace 
directives: 



ENTER 'D.ONTR', ENTER 
'D.OFFTR', or ENTER 
'D.STPTR'. 

E (EDITLIB) 

E = prog 

generates OVERLAY 
(COBCODE, 0, 0) statement; 
selects V parameter 
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F (Computational 
Modification) 

F 

interprets COMPUTATIONAL 
items as COMPUTATIONAL-! 

H (Sort File) 

H 

allocates buffer area for a 

sort 

! (Source Input) 

absent \ 

1 

MNPUT) 

INPUT assumed 


l=fn 

source input on file fn 

K (Sub-Schema File) 

K=fn 

sub-schema on file fn 


absent) 

K=0 ) 

no sub-schema files for 
this compile 

L (List) 

absent \ 

L 

L=OUTPUT) 

normal listing on OUTPUT 


any combination of following options: 


L=fn 

Output on file fn 


L=0 

suppress list output 


LX 

extended diagnostics 


LR 

cross reference pointers 


LC 

copy from library 


LO 

object code in octal 


LM 

data map 

N (Non-ANSI 
Diagnostic) 

N 

diagnoses any non-ANSI 
feature 

OB (Overlay Binary) 

OB=fn 

binary output from overlay 
segments put on file fn 

P (ANSI execution) 

P 

allows non-ANSI reserved 
words; selects N parameter 

S (Source Library) 

absent ) 

s l 

s=colib) 

source library from file 

COLIB 


S=fn 

from file fn 
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SUB (Subcompile) 

SUB 

suppresses all Data Division 
binary output except from 
Working and Constant Storage 

SUBM (Main 
Subcompile) 

SUB 

indicates non-COBOL main 
program is loading a COBOL 
subprogram 

T (Tape Sort) 

T 

sort requests tape sort 

U (Alternate Collating) 

U 

uses alternate collating 
sequence 

V (Sort Overlay) 

V 

saves loaded program, using 
NOGO 

W (Initialize Overlays) 

W 

uses version 3.0 method of 
treating independent segments 
they are available in last used 
state 

Z (3.0 Compatibility) 

Z 

provides compatibility with 
version 3.0 COBOL; selects 
parameters C, and W 
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COBOL CODING FORMAT 


Column 

Element 

1 -6 

Sequence number 

7 

Hyphen, slash, or asterisk 

8 

Division name 

Section name 

Paragraph name 

File description 

Record description level number 

12 

Record description data name 

First sentence of a paragraph 

File name 

Continuation of a data description or a sentence 

73-80 

Identification (optional) 


Sequence number Optional, checked by the processor if used 

Hyphen Indicates continuation of a word or literal from 

the preceding line 


Slash or asterisk Remainder of line is treated as comment and 

skips to new page 


Division name Terminated by period, remainder of line is blank 

Section name Followed by optional priority number, termi¬ 

nated by period, remainder is blank 


Paragraph name Terminated by period, followed by at least 

one blank before text begins 


File Description FD or SD followed by file name and at least one 

blank 


Record Description Level number followed by at least one blank and 

data name 

First Sentence Begins in or after column 12. Spaces may be used 

freely to avoid splitting a word or literal. If c 
word or literal is split, a hyphen must appear ir 
column 7 of the next line. 
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COBOL COMPILATION 



tlf required by operating system 
















COMPILATION AND EXECUTIO 



tlf required by operating system 
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EXECUTION WITH SUBCOMPILED PROGRAM 


empty record 

end of loader 
information 


/7 
8 
9 


data 


/I 
8 
9 


Binary Subprogram 


C 


/T 
8 
9 




Binary Subprogram 


COBOL Source Deck 


9 


A 


r^LGa 


/ LOAD (INPUT) 


/ COBOL 


/AOCOUNT^usern umber ,passwordf 


/ (job statement) 


tlf required by operating system 
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COBOL RESERVED WORD LIST 


* Indicates word not implemented. 


ABOUT 

CHARACTERS 

ACCEPT 

CHECK 

ACCESS 

CLASS 

ACTUAL 

CLOCK-UNITS 

ADD 

CLOSE 

"ADDRESS 

COBOL 

ADVANCING 

CODE 

AFTER 

COLUMN 

ALL 

COMMA 

ALPHABETIC 

COMMON-STORAGE 

ALPHANUMERIC 

COMP 

ALTER 

; com P-1 

ALTERNATE 

COMP-2 

AN 

COMP-3 

AND 

COMPUTATIONAL 

"ANSIB 

COMPUTATIONAL-1 

"APPLY 

COMPUTATIONAL-2 

ARE 

COMPUTATIONAL-3 

AREA 

COMPUTE 

AREAS 

CONFIGURATION 

ASCENDING 

CONSOLE 

ASSIGN 

CONSTANT 

AT 

CONTAINS 

AUTHOR 

CONTROL 

CONTROLS 

pnw\/cDQinM 

"BCD 

UL/JV V tnOlUrM 

COPY 

BEFORE 

CORR 

BEGINNING 

CORRESPONDING 

BEGINNING-F1 LE-LAB EL 

"COUNT 

BEGINNING-TAPE-LABEL 

CREATE 

BINARY 

"BITS 

BLANK 

CURRENCY 

BLOCK 

DATA 

BLOCKS 

DATA-PADDING 

BWZ 

DATE 

BY 

DATE-COMPILED 

DATE-WRITTEN 

DAY 

CALL 

DE 

CANCEL 

DECIMAL 

"CD 

DECIMAL-POINT 

CF 

DECLARATIVES 

CH 

DELETE 

CHARACTER 

"DELI MITER 

"DELIMITED 






DENSITY 
DEPENDING 

* DEPTH 
DESCENDING 

^DESTINATION 

DETAIL 

DIGIT 

DIGITS 

DIRECT 

^DISABLE 

DISPLAY 

DIVIDE 

DIVIDED 

DIVISION 

DOLLAR 

DOWN 

DUPLICATE 

DUPLICATES 

EBCDIC 

EDITION-NUMBER 

ELSE 

*EMI 

^ENABLE 

END 

END-OF-PAGE 

ENDING 

ENDING-FILE-LABEL 

ENDING-TAPE-LABEL 

ENDING-TAPE-LABEL-IDENTIFIER 

ENTER 

ENTRY 

ENVIRONMENT 

EOP 

EQ 

EQUAL 

EQUALS 

ERROR 

ERROR-CODE 

* ESI 
*ETI 

EVERY 

EXAMINE 

EXCEEDS 

EXIT 

EXPONENTIATED 

EXTEND 

* EXTERNAL 


FD 

FILE 

FILE-CONTROL 

FILE-LABEL 

FILE-LIMIT 

FILE-LIMITS 

FILLER 

FINAL 

*F!ND 

FIRST 

FLOAT 

FOOTING 

FOR 

^FORMAT 

FROM 


GENERATE 

GIVING 

GO 

GO 

GR 

GREATER 

GREATER-EQUAL 

GROUP 


*HASHED 
HASHED-VALUE 
HASHING 
HEADING 
HIGH 

HIGH-VALUE 

HIGH-VALUES 

THOLD 

HYPER 


ID 

IDENTIFICATION 

IF 

IN 

INCLUDE 

INDEX 
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INDEX-BLOCK 

INDEX-LEVEL 

INDEX-LEVELS 

INDEX-PADDING 

INDEXED 

INDICATE 

INITIATE 

INPUT 

INPUT-OUTPUT 

INSTALLATION 

INTO 

INVALID 

1-0 

l-O-CONTROL 

IS 


JUST 

JUSTIFIED 


KEY 

KEYS 


LABEL 

LAST 

LEADING 

LEAVING 

LEFT 

LESS 

LESS-EQUAL 

LIBRARY 

LIMIT 

LIMITS 

LINAGE 

LINAGE-COUNTER 

LINE 

LINE-COUNTER 

LINES 

LINKAGE 

LOCATION 

LOCK 

LOW 

LOW-VALUE 

LOW-VALUES 

^LOWER-BOUND 


^LOWER-BOUNDS 

LQ 

LS 


MAJOR 
MEMORY 
* MESSAGE 
MINUS 
MODE 
MODULES 
MOVE 
MULTIPLE 
MULTIPLIED 
MULTIPLY 


NEGATIVE 

NEXT 

NGR 

NL5 

NO 

NOT 

NOTE 

NO 

NUMBER 

NUMERIC 


OBJECT-COMPUTER 

OCCURS 

OF 

OFF 

OH 

OMITTED 

ON 

OPEN 

OPTIONAL 

OR 

ORGANIZATION 

OTHERWISE 

OUTPUT 

OV 

OVERFLOW 

TOWNER 


39 

/ 









I 


PAGE 

PAGE-COUNTER 

PERCENT 

PERFORM 

PF 

PH 

PIC 

PICTURE 

PLACES 

PLUS 

POINT 

POSITION 

POSITIVE 

"PREPARED 

"PRINT-SWITCH 

PRIORITY 

PROCEDURE 

PROCEDURES 

PROCEED 

"PROCESS 

PROCESSING 

PROGRAM 

PROGRAM-ID 

PROTECT 


"QUEUE 

QUOTE 

QUOTES 


RANDOM 

RANGE 

RD 

READ 

"RECEIVE 

RECORD 

RECORD-BLOCK 

RECORD-MARK 

RECORDING 

RECORDS 

REDEFINES 

REEL 

REEL-NUMBER 

"REFERENCES 

RELATIVE 

RELEASE 


REMAINDER 

REMARKS 

RENAMES 

RENAMING 

REPLACING 

REPORT 

REPORTING 

REPORTS 

RERUN 

RESERVE 

RESET 

RETURN 

REVERSED 

REWIND 

REWRITE 

RF 

RH 

RIGHT 

ROUNDED 

RUN 


SA 

SAME 

SD 

SEARCH 

SECTION 

SECURITY 

SEEK 

SEGMENT-LIMIT 

SELECT 

SELECTED 

SEND 

SENTENCE 

SEQUENCED 

SEQUENTIAL 

SET 

SIGN 

SIGNED 

SIZE 

SKIP 

SORT 

SOURCE 

SOURCE-COMPUTER 
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SPACE 

SPACES 

SPECIAL-NAMES 

STANDARD 

START 

STATUS 

STOP 

"STRING 

*SUB-QUEUE-1 

"SUB-QUEUE-2 

"SUB-QUEUE-3 

SUB-SCHEMA 

SUBTRACT 

SUM 

"SUPERVISOR 

SUPPRESS 

SYMBOLIC 

SYNC 

SYNCHRONIZED 


"TABLE 

TALLY 

TALLYING 

TAPE 

TERMINAL 

TERMINATE 

"TEST 

"TEXT 

THAN 

THEN 

THROUGH 

THRU 

TIME 

TIMES 


TO 

TODAYS-DATE 

TYPE 


UNEQUAL 

UNIT 

"UNSTRING 

UNTIL 

UP 

UPON 

"UPPER-BOUND 

"UPPER-BOUNDS 

USAGE 

USE 

USING 


VALUE 
VALUES 
VARYING 
*VOLUME 


WHEN 
WITH 
"WOR DS 

WORKING-STORAGE 

WRITE 


ZERO 

ZEROES 

ZEROS 
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64-CHARACTER 

SET COLLATING 

SEQUENCE 


Collating 

Sequence 

COBOL 

Character 

Display 

Code 

Hollerith Punch 

(026) (029) 

■i 

00 

blank 

55 

no punch 

no punch 


01 

<* 

74 

8-5 

12-8-4 


02 

% 

63 

8-6 

0-8-4 

• 

03 

[* 

61 

8-7 

8-5 

04 


65 

0-8-5 

0-8-5 


05 

— * 

60 

0-8-6 

8-3 


06 

A * 

67 

0-8-7 

12 


07 

t* 

70 

11-8-5 

8-4 


08 

1* 

71 

11-8-6 

0-8-7 

• 

09 

> 

73 

11-8-7 

0-8-6 


10 

> * 

75 

12-8-5 

0-8-2 


11 

-i* 

76 

12-8-6 

11-8-7 


12 


57 

12-8-3 

12-8-3 


13 

) 

52 

12-8-4 

11-8-5 


14 

* 

77 

12-8-7 

11-8-6 


15 

+ 

45 

12 

12-8-6 


16 

$ 

53 

11-8-3 

11-8-3 


17 

* 

47 

11-8-4 

11-8-4 


18 

- 

46 

11 

11 


19 

/ 

50 

0-1 

0-1 


20 

, 

56 

0-8-3 

0-8-3 


21 

( 

51 

0-8-4 

12-8-5 


22 

= 

54 

8-3 

8-6 


23 


64 

8-4 

8-7 


24 

< 

72 

12-0 

12-8-2 

25 

A 

01 

12-1 

12-1 


26 

B 

02 

12-2 

12-2 


27 

C 

03 

12-3 

12-3 


28 

D 

04 

12-4 

12-4 


29 

E 

05 

12-5 

12-5 

• 

30 

F 

06 

12-6 

12-6 


31 

G 

07 

12-7 

12-7 


*Not in COBOL character set; may be present in data 



tCOBOL quote character ( 

") is output on printer as 7 


• 
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64-CHARACTER SET COLLATING SEQUENCE 

(cont) 


Collating 

COBOL 

Display 

Hollerith Punch 

Sequence 

Character 

Code 

(026) 

(029) 

32 

H 

10 

12-8 

12-8 

33 

1 

11 

12-9 

12-9 

34 

V 

66 

11-0 

11-8-2 

35 

J 

12 

11-1 

11-1 

36 

K 

13 

11-2 

11-2 

37 

L 

14 

11-3 

11-3 

38 

M 

15 

11-4 

11-4 

39 

N 

16 

11-5 

11-5 

40 

0 

17 

11-6 

11-6 

41 

P 

20 

11-7 

11-7 

42 

Q 

21 

11-8 

11-8 

43 

R 

22 

11-9 

11-9 

44 

]tt 

62 

0-8-2 

12-8-7 

45 

S 

23 

0-2 

0-2 

46 

T 

24 

0-3 

0-3 

47 

U 

25 

0-4 

0-4 

48 

V 

26 

0-5 

0-5 

49 

w 

27 

0-6 

0-6 

50 

X 

30 

0-7 

0-7 

51 

Y 

31 

0-8 

0-8 

52 

Z 

32 

0-9 

0-9 

53 

. * 

00 

8-2 

8-2 

54 

0 

33 

0 

0 

55 

1 

34 

1 

1 

56 

2 

35 

2 

2 

57 

3 

36 

3 

3 

58 

4 

37 

4 

4 

59 

5 

40 

5 

5 

60 

6 

41 

6 

6 

61 

7 

42 

7 

7 

62 

8 

43 

8 

8 

63 

9 

44 

9 

9 


*Not in COBOL character set 
ttCOBOL record mark 
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ASCII COLLATING SEQUENCE 


Collating 

Sequence 

Character 

Display 

Code 

Hollerith Punch 

(026) (029) 

00 

blank 

55 

no punch 

no punch 

01 

!* 

62 

0-8-2 

12-8-7 

02 

" 

64 

8-4 

8-7 

03 

# 

60 

0-8-6 

8-3 

04 

$ 

53 

11-8-3 

11-8-3 

05 

% 

63 

8-6 

0-8-4 

06 

& 

67 

0-8-7 

12 

07 

' 

61 

8-7 

8-5 

08 

( 

51 

0-8-4 

12-8-5 

09 

) 

52 

12-8-4 

11-8-5 

10 

* 

47 

11-8-4 

11-8-4 

11 

+ 

45 

12 

12-8-6 

12 

, 

56 

0-8-3 

0-8-3 

13 

- 

46 

11 

11 

14 


57 

12-8-3 

12-8-3 

15 

/ 

50 

0-1 

0-1 

16 

0 

33 

0 

0 

17 

1 

34 

1 

1 

18 

2 

35 

2 

2 

19 

3 

36 

3 

3 

20 

4 

37 

4 

4 

21 

5 

40 

5 

5 

22 

6 

41 

6 

6 

23 

7 

42 

7 

7 

24 

8 

43 

8 

8 

25 

9 

44 

9 

9 

26 


00 

8-2 

8-2 

27 


77 

12-8-7 

11-8-6 

28 

< 

74 

8-5 

12-8-4 

29 

= 

54 

8-3 

8-6 

30 

> 

73 

11-8-7 

0-8-6 

31 

? 

71 

11-8-6 

0-8-7 
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ASCII COLLATING SEQUENCE (cont) 


Collating 


Display 

Hollerith Punch 

Sequence 

Character 

Code 

(026) 

(029) 

32 

@ 

70 

11-8-5 

8-4 

33 

A 

01 

12-1 

12-1 

34 

B 

02 

12-2 

12-2 

35 

C 

03 

12-3 

12-3 

36 

D 

04 

12-4 

12-4 

37 

E 

05 

12-5 

12-5 

38 

F 

06 

12-6 

12-6 

39 

G 

07 

12-7 

12-7 

40 

H 

10 

12-8 

12-8 

41 

1 

11 

12-9 

12-9 

42 

J 

12 

11-1 

11-1 

43 

K 

13 

11-2 

11-2 

44 

i 

L 

'l A 

14 

11-3 

11-3 

45 

M 

15 

11-4 

11-4 

46 

N 

16 

11-5 

11-5 

47 

0 

17 

11-6 

11-6 

48 

P 

20 

11-7 

11-7 

49 

Q 

21 

11-8 

11-8 

50 

R 

22 

11-9 

11-9 

51 

S 

23 

0-2 

0-2 

52 

T 

24 

0-3 

0-3 

53 

U 

25 

0-4 

0-4 

54 

V 

26 

0-5 

0-5 

55 

W 

27 

0-6 

0-6 

56 

X 

30 

0-7 

0-7 

57 

Y 

31 

0-8 

0-8 

58 

Z 

32 

0-9 

0-9 

59 

[ 

72 

12-0 or 

12-8-2 

60 

/ 

75 

12-8-5 

0-8-2 

61 

] 

66 

11-0 or 

11-8-2 

62 

— 

76 

12-8-6 

11-8-7 

63 

— 

65 

0-8-5 

0-8-5 
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63-CHARACTER SET COLLATING SEQUENCE 


Collating 

COBOL 

Display 

Hollerith Punch 

Sequence 

Character 

Code 

(026) 

(029) 

00 

blank 

55 

no punch 

no punch 

01 

<* 

74 

8-5 

12-8-4 

02 

[* 

61 

8-7 

0-8-4 

03 


65 

0-8-5 

0-8-5 

04 

= * 

60 

0-8-6 

8-3 

05 

A* 

67 

0-8-7 

12 

06 

|. * 

70 

11-8-5 

8-4 

07 


71 

11-8-6 

0-8-7 

08 

> 

73 

11-8-7 

0-8-6 

09 

> * 

75 

12-8-5 

0-8-2 

10 

A* 

76 

12-8-6 

11-8-7 

11 


57 

12-8-3 

12-8-3 

12 

) 

52 

12-8-4 

11-8-5 

13 

/ 

77 

12-8-7 

11-8-6 

14 

+ 

45 

12 

12-8-6 

15 

$ 

53 

11-8-3 

11-8-3 

16 

* 

47 

11-8-4 

11-8-4 

17 

— 

46 

11 

11 

18 

/ 

50 

0-1 

0-1 

19 

t 

56 

0-8-3 

0-8-3 

20 

( 

51 

0-8-4 

12-8-5 

21 

= 

54 

8-3 

8-6 

22 


64 

8-4 

8-7 

23 

< 

72 

12-0 

12-8-2 

24 

A 

01 

12-1 

12-1 

25 

B 

02 

12-2 

12-2 

26 

C 

03 

12-3 

12-3 

27 

D 

04 

12-4 

12-4 

28 

E 

05 

12-5 

12-5 

29 

F 

06 

12-6 

12-6 

30 

G 

07 

12-7 

12-7 

31 

H 

10 

12-8 

12-8 


*Not in COBOL character set; may be present in data 
tCOBOL quote character (") is output on printer as + 
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63-CHARACTER SET COLLATING SEQUENCE 
(cont) 


Collating 

COBOL 

Display 

Hollerith Punch 

Sequence 

Character 

Code 

(026) 

(029) 

32 

1 

11 

12-9 

12-9 

33 

V 

66 

11-0 

11-8-2 

34 

J 

12 

11-1 

11-1 

35 

K 

13 

11-2 

11-2 

36 

L 

14 

11-3 

11-3 

37 

M 

15 

11-4 

11-4 

38 

N 

16 

11-5 

11-5 

39 

0 

17 

11-6 

11-6 

40 

P 

20 

11-7 

11-7 

41 

Q 

50 

11-8 

11-8 

42 

R 

22 

11-9 

11-9 

43 

]tt 

62 

0-8-2 

12-8-7 

44 

S 

23 

0-2 

0-2 

45 

T 

24 

0-3 

0-3 

46 

U 

25 

0-4 

0-4 

47 

V 

26 

0-5 

0-5 

48 

W 

27 

0-6 

0-6 

49 

X 

30 

0-7 

0-7 

50 

Y 

31 

0-8 

0-8 

51 

Z 

32 

0-9 

0-9 

52 

- * 

63 

8-2 

8-2 

53 

0 

33 

0 

0 

54 

1 

34 

1 

1 

55 

2 

35 

2 

2 

56 

3 

36 

3 

3 

57 

4 

37 

4 

4 

58 

5 

40 

5 

5 

59 

6 

41 

6 

6 

60 

7 

42 

7 

7 

61 

8 

43 

8 

8 

62 

9 

4 

9 

9 


*Not in COBOL character set 
ttCOBOL record mark 
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NOTES 


€ 

« 
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